APPLICATION TO WITHDRAW AS ATTORNEY 
OF RECORD 

IN THE UNITED STATES PATENT AND TRADEMARK OFFICE 



In re Application of: Petrocy 

Serial No.: 08/807,567 Group Art Unit: 2309 

Filed: 02/28/97 Examiner: (not assigned) 

For: Self- Addressing Control 

Units and Modular Sign 

Including Plurality of *T * 

Self- Addressing Control Units , : 



CD 
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APPLICATION TO WITHDRAW AS ATTORNEYS OF RECORD ^ ™> 

Commissioner of Patents and Trademarks ^/ ^ £ 

Washington, D.C. 20231 

Sir: Ibfa 

I, the undersigned attorney of record in the above-captioned patent application, hereby apply 
to the Commissioner to withdraw as the attorney of record in this application for non-payment of 
legal fees, as set forth in detail below. 

1. Between February 18, 1997 and May 8, 1998, we have rendered substantial legal 
services including, preparation and filing of the patent application; preparation and filing a response 
of Notice to File Missing Parts; and preparation and filing of Information Disclosure Statement, with 
copies of references in connection with Applicant's invention pertaining to Self- Addressing Control 
Units and Modular Sign Including Plurality of Self- Addressing Control Units, as claimed in the 
present application. 



2. In exchange for the legal work, the ^pplicant agreed to pay us for our services 
rendered on its behalf. 

3. Between March 21 , 1997 and June 3, 1998, we submitted invoices to the Applicant 
for the legal work and the disbursements incurred in connection therewith. 

4. To date, the Applicant has not paid us for all of the legal work we provided, which 
Applicant promised to pay and has only partially paid us for our services and disbursements. 
Applicant presently owes a substantial balance for the legal work. In addition we have sent 
numerous letters to Applicant attempting to collect the outstanding balance, and informing the 
Applicant that we will withdraw as its attorney if we are not paid. 

5. Applicant has made numerous promises to us that further payments will be 
forthcoming. For example, see our letter dated January 23, 1998 (Appendix A) confirming our 
telephone conversation wherein he indicated that a number of jobs were finishing up and that he 
would pay us shortly and our letter dated May 8, 1998 (Appendix B) confirming the receipt of a 
check and indicating that we need payment by June 1, 1998. However, he has not payed his 
outstanding balance due to us. 

6. We believe that we will be harmed if we were to continue to assume responsibility 
in any way over this application. Specifically, if this application for withdrawal is not approved, 
then our professional and ethical obligations as attorneys would force us to expend additional time 
and resources on behalf of the Applicant in monitoring the status of this application and responding 
to any and all office actions as they arose. However, we would most likely receive no compensation 
for any of these efforts. 



7. The status of this application is that an Office Action dated June 17, 1998 was sent 
by the Patent Office. A copy was forwarded to Applicant. A Response is due by September 17, 
1998, though extensions of time can be obtained to December 17, 1998. Thus, our withdrawal at 
this time will not prejudice Applicants position and will afford Applicant sufficient time to seek 
substitute counsel on a timely basis, and to respond to the Restriction Requirement. 

8. Applicant has copies of all documents filed with the Patent Office. Such documents 
are routinely sent to clients as filed. 

9. A copy of this Request for Withdrawal is being sent to the Applicant by the letter 
attached hereto as Exhibit C. 

10. Once the application for our withdrawal is approved, kindly direct all future 
correspondence regarding this application to the Applicant at his address: 24 Orchard Street, 
Carteret, New Jersey 07008, and direct all telephone calls to Applicant at his telephone number: 
732-969-1484. 

In conclusion, in the absence of receiving all of our fees from the Applicant, we do 
not want to expend any further time on this application or continue to be responsible in any way 
therefor. For this reason, we earnestly solicit the Commissioner's prompt consideration and 
approval of this application to withdraw. 

Respectfully submitted, 




Dated: \H \ * u \ ^ u affiehael Ri Friscia 

Reg. No. 33,884 
Attorney for Applicant 
FRISCIA & NUSSBAUM 
405 Murray Hill Parkway 
E. Rutherford, NJ. 07073 
Tel. (201)842-0800 
Fax. (201) 842-0229 

p/0415301.277 
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FRISCIA & NUSSBAUM 



Patents, Trademarks 
and Copyrights 



A Professional Corporation 

Attorneys at Law 
405 Murray Hill Parkway 
East Rutherford, New Jersey 07073 
(201) 842-0800 



Fax (201) 842-0229 



New York address: 

42-40 Bell Blvd. 
Suite 301 

Baysidc, NY 11361 
(718) 224-5080 



January 23, 1998 



Mr. Richard Joel Petrocy 
24 Orchard Street 
Carteret, NJ 07008 



Dear Joel: 



Re: Our file: 277 - Billing 




This is to confirm our telephone conversation wherein you indicated that a number of your 
jobs were finishing up and that you should have money to pay us shortly. 

We note that you have previously provided us with a similar update beginning about June 
1997. Additionally, you have told us this a number of times thereafter including December 1 , 1 997, 
when you paid $1 ,000.00, and indicated that you would be paying off your balance shortly thereafter. 
Almost two months later, we still have not received any additional payment. 

This is to inform you that if we do not receive payment by February 28, 1998, which is 
approximately one (1) year after we performed a majority of services, at which time your balance 
will have been outstanding for approximately one (1) year, we will have no choice but to withdraw 
as your attorney in your pending patent applications and we will consider our collections options. 

We hope to hear from you soon in a positive manner. 



Regards. 



Very truly yours, 



MichaePR. Friscia 




J*" 

0123bil.277 




START OF PROGRAM DATASIGN EXPERIMENTAL CODE 
FOR USE BY DATASIGN . 

based on serdata4.src for use with arrow message pointer default=l 9/13/94 
bit K =24 ;Change this value for desired baudrate is 19.2KBaud for 8 Mhz,9600 Baud 

for 4 Mhz 

half bit = bit K/2 ;as shown in table. 




TOPI EQU RA-0; TOP FIRST BIT 

BOT EQU RAJ; BOTTOM BIT 

optoset equ ra.3;set data pulse normally high 

serialjn equ rb.l 

direction equ rb.6; output 

on_off equ rb.5; output 

Data < clear = rb ^ output change for picl654j.pcb artwork 
~reset_in _= rb.2 > 
optopwr = rb.O 

OPTO EQU RA; REFERS TO ALL 4 PINS AS inputs ra.2 & ra.3 tied HI 
BRAKE EQU rb.7; use motor chip BRAKE input for quicker stops 
Shoneytape EQU rb.3; shoney tape-1, elsehoney tape ^ (yd a^JLiyib 



delay_cntr 
bit_cntr 
rcv_byte 
rcv_done 
CountO 
Countl 
Number 
RcvReg 
DlyCnt 
; datasign start 
DEFAULT ds 
lastlettcr ds 1 
nfcwdata ds 1 
Count ds 1 
Datain ds 1 
optostop ds 1 




ds 
ds 

ds 1 
ds 1; its done \ 
ds l;Register labels 
ds 1 
ds 1 
ds 1 * 
ds 1 



;Counter for serial delay routines 
;Number of received bits 
;The received byte 



;Flags 

FLAG EQU 1AH.0 
lastdirection E(JU 1AH.1 
botFLAG equ lAh.2 
TOP1FLAG EQU 1AH.3 - 
FLAG2 EQU 1AH.4; 
dataflag equ lAh.5 
jumpflag equ lAh.6 
R_DONE equ 1AH.7 
; datasign end 

; Org 0 sets ROM origin to beginning for program. 



h A 




org 0 



Set the device type, oscillator type, watchdog timer status, and code ~ g 

protect status ^ 

DEVICE PIC16C54 ,XT_OSC,WDT_OFF,PROTECT^OFF Qj^ ^ 

^-r RESET Start ;Set reset vector to address at Start 
- ^ ^ ; (P1C will jump to this when reset) 

Start clrB Flag 
clrb flag2 

; . 76543210 bit registers 

mov !RA,#00001111b ;Set data direction register for port A 4 INPUTS 

mov !RB,#00001110b;Set data direction register for port B 6/28/94, 1,2,3 input 

clrb lastdirection 
CLRB BOTFLAG ^ 
CLRB TOPI FLAG ^™ 
CLRB REDONE ^ 
clrb dataflag 
setB BRAKE 
; new code 9/12/94 

jb optoset,notarrow 

Mov optostop,#4; ra.2 tied HI all else 0 
MOV DEFAULT, #5; blank character Arrow tape 
jmp resume 

notarrow Mov optostop,#12; ra.2 & ra.3 tied HI all else 0 
jb Shoneytape,shoneyyes 

MOV DEFAULT,#23;blank character HONEY tape normally 22 see Joel 
jmp resume 

shoneyyes MOV DEFAULT,#17;blank character SHONEY tape normally 16 see Joel 

; end new code 

resume 

clrb optopwr; turn on FET for optoLEDs 

clrf Count 
clrfCountO 
clrf rcvj>yte 
setb rcv_done 
clrb Data clear 



mov Iastletter,#60; 
MOV NUMBER,#0 

call end_delay; wait a bit 

clrB on_off; turns motor on 

setB direction; go to beginning { rewind } 



4 I 




cjc opto,optostop,tailsafe;6/29/94 change VK 9/13/94 
initialize loop 

INITIALIZE JNB FLAG2,BOTLOOP; debounce routine for opto tops and bottom 
CSE OPTO, optostop;both tops and bottom goto 0 at start of tape 
JMP INITIALIZE 

failsafe clrb direction; got to start now go forward 
Digit JNB FLAG,UPLOOP 

JB TOPl,DIGIT 

'forward INC NUMBER 

cjne Number,default,Clear 

mov NEWDATA,Number ;save Number 

setb flag2 ; 

jmp center 
Clear clrb flag 

jmp Digit 

! ********************************************** 
> 

; delays 

; This delay loop takes four instruction cycles per loop, plus eight 
; instruction cycles for other operations (call, mov,. the final djnz, and ret). 
; These extra cycles become significant at higher baud rates. The values for 
; bit_K in the table take the time required for additional instructions into 
; account. 

bit_delay mov delay_cntr,#bit_K 
:Ioop nop 

djnz delay _cntr, :loop 

ret 

; This delay loop is identical to bit_delay above, but provides half the delay 
; time. 

start_delay mov delay_cntr,#half_bit 
:loop nop 

djnz delay_cntr, :loop 

ret 

; This delay loop is identical to bit_delay above, but provides long delay 
; time. 

end_delay mov delay_cntr,#255 
:loop nop 

djnz delay _cntr, :loop 

ret 

. *********************************************** 

centering routine used by all 
center mov lastletter,newdata ;save Number 
mov number,#0 




clrb dataFLAG 

movb jumpflag,direction;move direction bit to jumpflag 
jb flag2,centered 8/15/94 vk 
;original 9/2/94 jb jumpflag,centered;going in reverse I can stop NOW 

jb jumpflag,backflip;going in reverse make sure I am a 0 

mov w, #200 ; 4/1/93 first line 
home2 movwf DlyCnt ;4/l/93 pullback routine to get 0 from top opto 
:redo_l decfsz DIyCnt,l ; when going forward 

goto :redo_l ; Normally without these lines it would stop 

sb topi; 4/1/93 at a 1 which would screw up next move 

jmp home2; 

setb direction 

mov w, #200 
home3 movwf DlyCnt 
:redo_2 decfsz DlyCnt,l 

goto :redo_2 

snb topi; 

jmp home3; last 4/1/93 test line 
jmp centered 

backflip 

mov w, #200 ; 4/1/93 first line 
:home2 movwf DlyCnt ;4/l/93 pullback routine to get 0 from top opto 
:redo_l decfsz DlyCnt,l ; when going forward 

goto :redo_l ; Normally without these lines it would stop 

sb topi; 4/1/93 at a 1 which would screw up next move 

jmp : home2; 

clrb direction 

mov w, #200 
:home3 movwf DlyCnt 
:redo_2 decfsz DlyCnt,l 

goto :redo_2 

snb topi; 

jmp :home3; last 4/1/93 test line 



;serdata3 original 

centered clrb BRAKE; use motor chip BRAKE input 
clrb flag2 
setb ON_OFF 
CALL end_delay 

setb optopwr, turn off optoLEDs 
;end original serdata3 

. *********************************************** 

y 

samedigit nop 
newdigit 

.*********************************************************************** 

; start serial receive routine 
Talk 

begin clrf Count 

start bit snb serialjn ;Detect start bit. Change to 




jmp start__bit ;No start bit yet? Keep watching. 

call start_delay ;Wait one-half bit time to the middle of the start bit 

jb Serial_in,start_bit 

If the start bit is good, proceed. Otherwise, continue waiting. 

mov bit_cntr, #8 ;Set the counter to receive 8 data bits 
clr rcv_byte ;Clear the receive byte for new data. 

:receive call bit_delay ;Wait one bit time. 

movb c,Serialjn ;Put the data, bit into carry, 
rr rcv_byte ;Rotate the carry bit into the receive byte. 
;Get next bit 

djnz bit_cntr,:receive 

call bit_delay ;Wait for stop bit 

7 

Displ mov newdata, rcv_byte 
setb Data_clear 
clrb rcv_done 

goto wait_bit ;wait for reset bit after all digits 
wait bit snb reset in ;Detect reset bit 

jmp waitjnt ;No reset bit yet? Keep watching, 
call start_delay ;Wait one-half bit time to the middle of the start bit. 
call start_delay ;Wait one-half bit time to the middle of the start bit 
jb reset_in,wait_bit 

clrb Data_clear 
setb rcv_done 
JMP SHOWDIGIT 

bad_digit jmp begin 

y 

; end serial receive routine 

. *********************************************** 

SHOWDIGIT cje newdata,#80,start;if module is lost it is forced to initialize at start 

cje lastletter,newdata,samedigit;if new digit is same as old digit 
; ignore it and wait for another 

mov number,lastletter 
clrb optopwr, turn on FET for optoLEDs 
call end_delay; give opto time to come up 
cja newdata,lastletter,goforward;go forward if new digit is greater 
cjb newdata,lastletter,gobackward;go backward if new digit is less 

. *********************************************** 

goforward clrb direction;set forward direction 
movb jumpflag, direction 



* 



clrb lastdirection; set lastdirection to 0 for forward 
setb BRAKE;remove brake 
clrb on_off;start motor 



upDigit JNB FLAG,waitlOOP;debounce up 

JB TOPl,upDIGIT 
:FORWARD cjne Number,newdata,:Clear 

jmp center 
:Clear INC NUMBER 

clrb flag 

jmp upDigit 



. *********************************************** 



gobackward setb direction;set reverse direction 
movb jumpflag, direction 

setb lastdirection; set lastdirection to 1 for backward 
setb BRAKE;remove brake 
clrb on_off;start motor 
downDigit JNB FLAG,waitLOOP;debounce down 



:reverse cjne Number,newdata,:C!ear 

jmp center 
:Clear dec NUMBER 



* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 



; delay and debounce loops 
UPLOOP CLR COUNTO 

MOV COUNTl,#l 
-.LOOP JNB T0P1,D1GIT 

DJNZ COUNT0,:LOOP 

DJNZ COUNTl,:LOOP 

SETB FLAG 

JMP DIGIT 



botLOOP clr COUNTO 

mov COUNT1,#100; improve debouncing ?? 
:LOOP JNB botlNITIALIZE 

DJNZ COUNT0,:LOOP 

DJNZ COUNTl,:LOOP 

clr COUNTO 

MOV COUNT1,#100 
:loop3 JNB TOPl,INITIALIZE 

DJNZ COUNT0,:LOOP3 

DJNZ COUNTl,:LOOP3 

SETB FLAG 2 

JMP INITIALIZE 



JB TOPl,downDIGIT 



clrb flag 

jmp downDigit 



jwaitloop for both fwd and rev 
waitLOOP mov COUNT0,#2 

MOV COUNTl,#2 
-.LOOP jb jumpflag,:down 

JNB TOPl,upDIGlT 

jmp :goon 
:down JNB TOPl,downDlGIT 
:goon DJNZ COUNT0,:LOOP 

DJNZ COUNTl,:LOOP 

SETB FLAG 

jb jumpflag,:down2 

Jmp upDIGIT 
:down2 JMP downDIGIT 
;END OF SRC 



FRISCIA & NUSSBAUM 

A Professional Corporation 

Patents, Trademarks Attorneys at Law Fax (201) 842-0229 

and Copyrights 405 Murray Hill Parkway 

East Rutherford, New Jersey 07073 

(201) 842-0800 Ncw York address: 

42-40 Bell Blvd. 
Suite 301 

Bayside, NY 11361 
May 8, 1998 (718) 224-5080 



Mr. Richard Joel Petrocy 
24 Orchard Street 
Carteret, NJ 07008 

Re: 



Dear Joel: 

Thank you for your check in the amount of $500.00. As your balance is substantial and has 
been outstanding for more than one year, we can not change our plans to withdraw as your attorney. 
We will not file any such papers until June 1, 1998. If we do not receive further payment from you 
by this date, we will proceed with filing a withdrawal. 

Regards. 



Very truly yours, 




enc. . 
db 

b\0507302.277 



Our files: 277301 

SELF-ADDRESSING CONTROL UNITS AND ^ ^ 

MODULAR SIGN INCLUDING PLURALITY 9 ; 

OF SELF-ADDRESSING CONTROL UNITS 0/ >? A ^ 9 9 

277302 

MODULAR SIGN BOX WITH FRAME ' 1 ■ ' 



; constants 

addro con 

cmndo con 

cmndi con 

baud con 

gmove con 

lreset con 

last con 



vars 



al 


var 


byte 


ah 


var 


byte 


digit 


var 


byte 


stat 


var 


byte 


temph 


var 


byte 


tempi 


var 


byte 


tempd 


var 


byte 


temps 


var 


byte 


a 


var 


byte 


nummod 


var 


byte 


b 


var 


byte 


rt 


var 


byte 



1 init stuff. 
h|Lgh cmndo 
lo|tf addro 
ijSput cmndi 

bb^in-: 

,(Bflwait : f or all modules., to, power ..on 
dfe^ug "waiting for modules to' power 6n n "",CR v "^^ 
p&use 7000 

'Preset all modules first 
. cfgsub reset — all_ modules 

'S&nit 

'ffladdress modules, then find last one 
&6at = 0 
al = 1- 
ah = 0 

gosub send__ address 

1 now address modules one at a time to see end. note 
1 max of 100 
digit = 0 

. for a = 1 to last 
al = a 

gosub send__data_nc 
if stat = 1 then cex 

, next 

cex: — 
';' r , ; if a = . 1, - then no modules 
'.'"■■'ifVa > 1 then main 

ISfdebug^BELL; " modules v have.; '.responded viA 



8' 
il 

12 "&e<U 

396 
$f 8 
$f 9 
30 



■4' 



end 




1 main routine 

main : 

a = a - 1 

debug "found n ,SDEC(a)," module (s) .", CR 



1 show the address 
for a = 1 to 8 

1 readdress modules, just in case 

al = 1 

go sub send_address 

lookup a, [1,1,2,3,4,5,6,7,8,9] .digit 
gosub send__data 

for b = 1 to 8 

al = 2 

lookup b, [1,1,2,3,4,5,6,7,8,9] , digit 
gosub send_data 

gosub global^ move 

^ next 
ne^t 

gcWo main 

del3ug "done. !t ,CR 
thatsall: 
dsBug BELL 
gcf&o thatsall 

. I | I I I 1 I 1 I 1 I I I I I I I I t I I I I I I T I 1 I I 1 1 1 

lc§i:al_reset : 

detug "Ireset al = ", SDEC(al) f " ah= n , SDEC(ah),CR 
serout cmndcbaud^O, [ah+$80 , al , $f 9] 
pause 7000 

return 

i i i i i i i i i i i i i i i i i i i i i » i i i i i i i i ii * 1 * 1 » 1 • 1 1 

send__address : 

debug "addr al=", SDEC(al), " ah=", SDEC(ah),CR 

' this line changes the address 
' data is sent out AMSB, ALSB 
serout addro,baud+$4000,5, [ah,al] 

pause 2500 1 should be enough time to address 200 modules 

• return ■ ^ . 



s,end_data__nc : 




debug "data nc dg=", SDEC(digit), n al=", SDEC(al), " ah=», SDEC(ah),CR 

1 sends data to module, without verify 
' data is sent AMSB , ALSB , DIGIT 
' if digit - $85, then LOCAL MODULE RESET 
serout cmndo, baud, 10, [ah+$80, al, digit] 
1 get responce from module 

serin cmndi, baud, 1000 ,nr, [temph, tempi , tempd, temps] 



debug "got responce", CR 

stat = 0 

return 



nr : 

debug "no responce" , CR 
stat = 1 

return • 

i i i i i i i i i i i i i i i i i i i i i i i i i i t i i i i i i i i i i i i > i i 

send_data : 
stat = 0 



fo;t rt= 1 to 3 

y debug "data dg=", SDEC(digit), " al=", SDEC(al), " ah=", SDEC{ah),CR 

O » sends data to module 

SS ' data is sent AMSB, ALSB, DIGIT 

; 411. .v.. 1 if digit, $85 , then LOCAL^ MODULE 

Ui se rout cmndo , baud", 1 0 , [ ah+ $ 8 0 )"at'\ digit ] '^-^^ ■ • ' * : v> 

SI 1 get responce from module 

/ serin cmndi , baud, 1000 , rerror, [temph, tempi , tempd, temps] 

q debug "verifing responce CR 

Hj temph = temph & $7f 

si if temph <> ah then rerror 

'% if tempi <> al then rerror 

~\ if tempd <> digit then rerror 

^ if temps <> 0 then rerror 

goto senddone 

rerror: 

debug "receive error" 

pause 1000 

next 



debug BELL, "No responce from module" ,CR 

stat = stat + $80 

return 

senddone: 

debug "status =", SDEC (temps) , CR 
stat = temps 
return - 



1 debug /BELL, "Receive error ; " , CR 
"V "■;■■:« debug ? ;" ' : ah- ", hex temph, CR. 




1 debug . " 



al- n ,hex 



tempi , 




• 



h debug " digit - " , hex tempd , 
1 debug " stat-",hex temps, CR 
1 stat = stat + $40 
1 return 

I f t | l | | | | 1 ! \ t I t I 1 I t 1 I 1 I t I 1 I I I ! 1 I I 1 1 I I I t I I I I I I 

global_move: 

debug " gmove " , CR 

1 move to new digit 
1 global move command 
serout cmndo , baud , 0 , [gmove] 
pause 5000 
return 

, , , t ! , | | | I | ! | I 1 1 I 1 I I I I t I I ! 1 1 I I t t 1 I I I I I I ! I » t I 1 

r e s e t_al l_modul e s 

debug "reset all n ,CR 

al = 0 
ah = 0 

gosub send_address 

fdH al = 0 to last 

OQserout cmndo, baud, 10, [ah+$80 , al , $f 9] 
n<H:t 

payse 7000 



FRISCIA & NUSSBAUM 

A Professional Corporation 

Patents, Trademarks, Attorneys at Law Fax (201) 842-0229 

and Copyrights 405 Murray Hill Parkway 

East Rutherford, New Jersey 07073 

(201) 842-0800 New York address: 

42-40 Bell Blvd. 
Suite 301 

Bayside, NY 11361 
June 22, 1998 (718)224-5080 



Mr. Richard Joel Petrocy 
24 Orchard Street 
Carteret, NJ 07008 

Re: 



Dear Joel: 

Enclosed please find a copy of the Application to Withdraw as Attorneys of Record, as filed 
with the United States Patent and Trademark Office on today's date for the above-referenced matter. 
This means that we will no longer represent you in this matter. We recommend that you obtain a 
patent attorney to represent you. 

Please be advised that a response to the outstanding Office Action is due by September 17, 
1998 with extensions available by payment of fees until December 17, 1998. 

Regards. 



Very truly yours : 




Michael R. Friscia 



enc. 




Our file: 277301 r 
Serial No. 08/807,567 '°>j?C/,* &Q 

SELF-ADDRESSING CONTROL UNITS AND * 
MODULAR SIGN INCLUDING PLURALITY ' '^p 0/ 
OF SELF-ADDRESSING CONTROL UNITS 



db 

06223012.277 



DEVICE PIC16C84^P_OSC / WDT_OFF # PROTECTION' 



ftp?, c 



time log 



1/9 

1/10 

1/11 



1/14 

1/18 

1/20 

Paid. 

1/31 

1/31 

2/1 



1/12 5 hours 



hours goto everything together, killed lower opto 
hours kill extra parts, cleaned up code somewhat 
hours re-wrote filter, added motor turnoff . wrote new 
default finder after home. 

well, re-wrote everything else that vk had 
added new coram schemes, new centering, parity check 
started 

added ee routines and addressing logic, stated new schematic 
5 hour finished schematic, started layout. 
2 hours PCB layout 
. 1200.00 

2 hours pcb assemble 7:00 - 9:00 

3 hours 9:00 - 12:00am 

12 :00am - 



2 hour 



; comm at 12 00 


baud 


bit K equ 


206 


half_bit 


equ 


DEFAULT equ 


3 


GCOMMAND 


equ 


ADDRH equ 


0 


AQBRL equ 


1 


CUgpIGIT 


equ 


R%J equ 


4 



bit_K/2 ;as shown in table. 
Of 5h 

2 

/number of retries 



; ,gort a defs 

ndjj equ 0 

cdftind_ out equ 1 

acidr_out equ 

nc2 equ 3 

; ffliort b defs 

o#ttodig equ 

cc|8ind_in equ 1 

a<jpr_in equ 2 

ne-3 equ 3 

in2_4 equ 4 

on — of fdig equ 5 

on_offcol equ 6 

inl_3 equ 7 



; command echo back (out - 0) 
2 ; address out (out - 0) 

; out 



0 ;digit opto input (in) 

global command (in) 
address in (in) 
out 

motor direction (out - 1) 
color motor on/off. (out - 0) 
digit motor on/off (out - 0) 
motor direction (out - 1) 



; data memory 
org 

bit_cntr ds 
rcv_byte ds 
number ds 
lastletter ds 
newdata ds 
black 



white 
highch 
highcl : 
temp, 
tol 



ds 
ds 
ds 
ds 
ds 
ds 



Och 



1 
1 
1 
1 
1 
1 
1 
1 
1 



1 
1 



; Number of received bits 
;The received byte 



; last digit shown . (or the current digit shown) 
;used by showdigit 
;used by ; , getstate . 
;used by get state',;,. tv.; ;, , 

•;used ..by : getstate^,;^ : ; - :-:>^'c^'-. 
;used by getstaeV;^ . ■ _ 



low| orderf 



tris ra 

movlw 00000111b 

tris rb 

movlw 01010111b 
option 

bsf intcon.,5 



; set prescale to tmrO , turn on rbres 
; enable timer ints 



set the module address 



movlw 


ADDRH 


movwf 


eeadr 


call 


read_ee 


movf 


eedata, 0 


movwf 


addressh 


movlw 


ADDRL 


movwf 


eeadr 


call 


read_ee 


movf 


eedata, 0 


movwf 


addressl 



isee if virgin module 



incf 
btf ss 
goto 

incf 
btf ss 
goto 



addressh, 0 
status, 2 
dohome 

addressl, 0 
status ,2, , 
dohome 



; m virgin, lets do it 



bsf 

dfjaulthome 
^ movlw 
■7j movwf 
movlw 
movwf 
call 



flags, virgin 



DEFAULT 
eedata 
CURDIGIT 
eeadr 
write ee 



; inc and leave in w 



/indicate a virgin 



dohome 



movlw 

movwf 

call 

movf 

movwf 



CURDIGIT 
eeadr 
read_ee 
eedata, 0 
newdata 



tryagain 



movlw 
movwf 



RT 

retries 



homeagain 

call 
btfsc 
: goto 

'^>:; btf ss 

r goto 



home . 

flags , timeout 
herror r 
flags /parity : . 
newshow : ; : . 



; opps, error homin' twice, if failure, we are a dead module! 

; but still allow address data to pass... 

herror 

bcf flags , timeout 

bcf flags, parity 

decfsz retries 
goto homeagain 
call motor_off 
bsf flags, deadmod 

goto waitloop 

; show blank char 
newshow 



call 


showdigit 


btf sc 


flags, timeout 


goto 


herror 


btf sc 


flags , parity 


goto 


herror 


movf 


number, 0 


movwf 


lastletter 



. *^**********************************************^ 
; w&±n loop 

' **************************************************** 

wagjtloop 

r* call getcommand 

§ h btfsc flags, cmndrdy 

'-S* ■•■■•-*' -goto gotposcmnd .. . .... ........ .......... .... . . 

call getaddr 

%B btfsc flags , addrrdy 

L goto gotaddr 

\ Say- want to put some supervisor stuf here... like checking the parity 
; tUnd to flags 



goto waitloop 



gotposcmnd ; . ' 

; first, if a virgin, ignore everything 

btfsc flags, virgin 

goto waitloop 

; then, if a deadmod, ingore commands 
btfsc flags , deadmod 
goto waitloop 

; check for address command 
btfss rev byte, 7 

goto waitloop ;if this bit not high, then not correct 

; ok, address byte... check first if global move 
. w movf r cv_by te ,0 

movwf temph ~. 
sublw Of ah 

btfsc status, 2 . '. •: 

i: : >:\i,<:: : - 'goto .globalmove ; \.:.\:/ ■ Y^;;^ 1- V- . 



v * get 'next address byte 
gotcl 

call get command 

btf ss flags , cmndrdy 

goto gotcl 

movf rcvjoyte, 0 

movwf tempi 



; get data byte 
gotc2 

call 
btf ss 
goto 

movf 
movwf 



get command 
flags , cmndrdy 
gotc2 

rcv_byte, 0 
tempd 



ok, is it my address 



movf 


tempi , 0 


subwf 


addressl , 0 


btf ss 


status , 2 


□ goto 


waitloop 


m movf 


temph, 0 


q andlw 


07fh 


subwf 


addressh, 0 


§n btfss 


status , 2 


goto 


waitloop : . 


; rfiy address, now get next data 


cifiloop 




iir* movf 


tempd, 0 


LH movwf 


nextdigit 


goto 


waitloop 


gdiaddr 




St movf 


rcv_byte, 0 


movwf 


temph 


; get next byte 


of address 


gotaddrl 




call 


getaddr 


btfss 


flags , addrrdy 


goto 


gotaddrl 


movf 


rcv_byte, 0 


movwf 


tempi 


; check if new 


address 


movf 


tempi , 0 


subwf 


addressl, 0 


btfss 


status, 2 


goto 


newaddress 


movf 


temph, 0 


subwf 


addressh, 0 


btfss . 


status, 2 . ■ 



;get into w 

; subtract my address 



;kill upper bit 



it the new digit 



;do it again 



;get first byte 
; temp for 1 data 



goto 



newaddress 



; old address, inc by one, then send it 



incf 


tempi, 1 


r_ i_ _ _ 

Dtf SC 


SCdLUb / ^ 


incf 


temph, 1 


movf 




call 


sendaddr 


clrf 


temp 


decf sz 


temp, 1 


goto 


sdl 


decf sz 


temp, 1 


goto 


sd3 


movf 


tempi , 0 


call 


sendaddr 


goto 


waitloop 



newaddress 



write 


new address 




movf 


tempi , 0 




movwf 


addressl 




movwf 


eedata 




movlw 


ADDRL 




movwf 


eeadr 




call 


write_ee 




movf 


, temph, 0 




movwf 


addressh 




movwf 


eedata 




movlw 


ADDRH 




movwf 


eeadr 




call 


write__ee 



;®Lnc it, and send it along 

^ incf tempi ,1 

M btfsc status ,2 

incf temph, 1 
; send it 

movf temph, 0 

call sendaddr 

clrf temp 



sd2 
sd4 



decfsz temp,l 

goto sd2 

decfsz temp,l 

goto sd4 



movf 
call 



tempi , 0 
sendaddr 



■ ; ; move display back to the default 
goto def aulthome 



/ 

; global move command 

globalmove 

; write it into ee 

movlw CURDIGIT 
movwf eeadr 
movf nextdigit, 0 
movwf eedata 
call write_ee 



movf nextdigit , 0 

movwf newdata 

call showdigit 

btfsc flags, parity 

goto tryagain 

btfsc flags, timeout 

goto tryagain 

goto wait loop 



; send the addres to next module 

; m = data to be sent 

segdaddr 





movwf 


temp 






movlw 


8 






movwf 


bit_cntr 






bsf 


porta, addr_ 


out 


Ul 


call 


bit_delay, x 




sdfjdit 


rrf 


temp, 1 






btf ss 


status , 0 






bsf 


porta , addr_ 


out 




btfsc 


status , 0 






bcf 


porta, addr_ 


_out 




call 


bit_delay 






decf sz 


bit_cntr 




s 


goto 


sendit 






bcf 


porta, addr_ 


_out 




call 


bitjdelay 






return 







get command 
bcf 
btfsc 
return 
call 
btfsc 
return 



flags, cmndrdy 
portb, comnd_in 

start_delay 
portb, comnd_in 



movlw 
movwf 
clrf 

comndrec 

call . ; ,bit_delay 
btfss portb, comnd_in, 
bcf.. ■•• ( ..v status ,0, 
; •••• btfsc ; portb,comnd_in- . I; 



8 

bit__ cntr 
rcv_byte 



bsf 
rrf 

;Get next bit 
decf sz 
goto 
call 

bsf 

call 

return 



status , 0 
rcv_by te , 1 

bit__cntr 
comndrec 
bit_delay 



flags , cmndrdy 
bit_delay 



getaddr 



bcf 
btf sc 
return 
call 
btf sc 
return 



flags, addrrdy 
portb, addr_in 

start_delay 
portb, addr_ in 



movlw 
movwf 
clrf 

addrrec 

call 
q btfss 
m bcf 
m btfsc 

3 bsf 

G rrf 
;G#Jt next bit 
• Si. . . decf sz 

zl goto 

^ call 

O bsf 
[JJ call 
fU return 



8 

bit_cntr 
rcv__byte 

bit_delay 
portb, addr__in 
status, 0 
portb , addr_in 
status , 0 
rcv_byte, 1 

bit_cntr 

addrrec 

bit__delay 

flags, addrrdy 
bit_delay 



; ; ^hows digit in newdata 
showdigit 

; showing a digit >80 not allowed 
movlw 80 
subwf newdata, 0 
btfsc status ,2 
goto start 

; same digit, do nothing 
movf newdata, 0 
subwf lastletter, 0 
btfsc status, 2 
return 

; ok, save this digit 

movf lastletter, 0 
movwf number 

; now figure out which way to go. 
movf lastletter, 0 
: ^ ' subwf newdata, 0 . :- 



;if new data greater than 80, restart 



btfss 
goto 

gof orward 

call 



status , 0 
gobackward 



• 



motor_on_rewind 



; wait unit white 
f oreblk 



f oremove 



call 


getstate 


btfss 


status , 0 


goto 


f oreblk 


btf sc 


flags, timeout 


return 




call 


getblack 


movwf 


lastwidth 


incf 


number , 1 


movf 


number, 0 


subwf 


newdata , 0 


btfss 


status , 2 


goto 


f oremove 


call 


motor_of f 


leek for 


parity 


movf 


lastwidth, 0 


xorwf 


number, 0 


movwf 


temp 


btfss 


temp, 0 


goto 


f orecenter 


bsf . 


flags, parity, 


return 





halt motor 



;get width in w 

;xor with the number 

;if temp.O = 1 then same party 



iiow center optodig 
f dyecenter 

■fU call 
; RSind black 
f cffiw 

call 
SJ btfsc 

goto 
; find white 
fori 

call 
btfss 
goto 
call 



motor on forward 



getstate 
status, 0 
f orw 



getstate 
status, 0 
fori 

motor off 



; start motion 



call motor_on__rewind ; start motion 

; reverse for black again 
for 2 

call getstate 

btfsc status, 0 

goto for2 

call motor off 



movf 
movwf 



number, 0 
lastletter 



return 



gobackward 

call 



• 



motor on forward 



; at black, wait until white 
backblk 



backmove 



call 


getstate 


btf ss 


status , 0 


goto 


backblk 


btf SC 


flags , timeout 


return 




call 


getblack 


movwf 


lastwidth 


aect 


nuiuDer , x 


movf 


numoer , u 


subwf 


newudLd , u 


DUE SS 


s uauus , z 


goto 


backmove 


call 


mouor ol e 


ieck for 


parity 


movf 


lastwidth, 0 


xorwf 


number, 0 


movwf 


temp 


btf ss 


temp, 0 


goto 


backcenter 


bsf 


flags, parity 


return 





halt motor 



;get width in w 

;xor with the number 

;if temp.O = 1 then same party 



Sow center optodig 
bafrkcenter 

s call motor on rewind ; start motion 



.; ftk, find black 

bdSkl 

ffl call 
gp btfsc 
: %a goto 
call 

movf 
movwf 
return 



getstate 
status , 0 
backl 
motor_of f 

number, 0 
lastletter 



; turns on clears tmrO , to counter, turns, on gie, and turns on motor 
motor on forward 



btfsc 


flags , timeout 


return 




clrf 


tmrO 


clrf 


toh 


clrf 


tol 


bcf 


portb , on__ of f dig 


bsf - 


intcon, 7 


bcf 


portb, inl_3 


bsf 


portb, in2_4 


bsf 


portb , on_of f dig 


return 





motor_on_rewind 
btf sc 
return 
clrf 
clrf 
clrf 
bcf 
bsf 
bsf 
bcf 
bsf 

return 



flags, timeout 

tmrO 

toh 

tol 

por tb , on__of f dig 
intcon, 7 
portb, inl_3 
portb, in2_4 
portb, on_off dig 



motor_of f 

bcf 
bsf 
bsf 

return 



intcon, 7 
portb, inl_3 
portb, in2_4 



filters optodig input, counts black/white, and returns 
; which count had more. 

; returns carry = 0 if white, 1 = black 
getState 

200 
temp 
white 
black 



movlw 
m movwf 
S clrf 
SJ clrf 
ispptodig 
.. ,fi. btfsc 

Z\' goto 
isbiack 

incf 
!r[ goto 
isyrhite 

« incf 

4f nop 



8mhz 100 = > 200 



geWcont 



decf sz 

goto 

movf 

subwf 

btf ss 

retlw 

retlw 



portb, optodig ; 
iswhite 

black, 1 
get con t 

white, 1 



temp 

isoptodig 
white, 0 
black, 0 
status, 0 
0 
1 



; get width of black mark 

; returns 

; 0 = short 

; l = long 

; 2 = end 

getblack 

clrf highch . 
clrf highcl 



;high count 



waitblack ■ v..-./- ; . 

: ■ ; . btfsc flags,, timeout; 
' ' return' 



call 

btfsc 

goto 

countblack 

btfsc 

return 

incf 

btfsc 

incf 



getstate 
3,0 

waitblack 



flags, timeout 

highcl , 1 
3,2 

highch, 1 



btfsc highch 



toh ds 


1 


;] 


flags ds 


1 


; < 


lastwidth ds 


1 




retries ds 


1 




addressh 


ds 


1 


addressl 


ds 


1 


coramandh 


ds 


1 


commandl 


ds 


1 


nextdigit ds 


1 




tempi ds 


1 




temph ds 


1 




tempd ds 


1 




tdelay ds 


1 





tt 11 11 It 



last width of pulse 



; flags defs 

timeout equ l 

parity equ 2 

cmndrdy equ 3 

addrrdy equ 4 

deadmod equ 5 

virgin equ 6 



; iitart of reset jump 
ffl org 0 

□ goto start 



; tint rOUtine- . . . - - ^^{■'r-y/:^^ •. >v^v:;, ; ;., 

%s incf tol , 1 

L bcf intcon,2 

Jjr! btfss tol ,6 

L?=f retfie 

; SLf we get here, we have and error in the motor 
m@tor_error 
SI bcf intcon, 7 

bcf portb , on_of f dig 

bsf flags, timeout ; indicate an error 

retfie 



; start of main code 
start 



; init stuff 



clrf 


status 


clrf 


flags 


clrf 


retries 


movlw 


00000000b 


movwf 


porta 


movlw 


10010000b 


movwf 


portb 



movlw 



00000000b 



